
		**********************************************************
		** File: UNODC EBA 1-5.do								**
		** Paper: Human Trafficking Indicators: A New Dataset	**
		** Author: Richard Frank								**
		** Date: July 11, 2021									**
		** Task: Running first series of UNODC EBA models		**
 		**********************************************************

				clear
				version 16.1
				set max_memory 32g, permanently
				set seed 1234
				set level 95 		
				 cd "C:\Users\Administrator\Desktop\"
				use "HT EBA merged DV and IVs 2006.dta"
	
 ***************
 ** 1. AGRAVE **
 ***************
		
		oprobit dest_UNODC /**/ agrave /**/
		regsave using /**/ eba_unodc_1 /**/, replace
		
		tuples 																///
		 /**/ america_l america_n conflict_extave conflict_intave 			///
		 cpiave easia_pacific energyuseave ethnic_tensionave ethnicave 		///
		 europe execleftave execrightave fdiave foodave 					///
		 homicidesave infantave KOFSoGIave languageave legal_britishave 	///
		 legal_frenchave legal_germanave legal_scanave literacyave 			///
		 lp_catho80ave lp_protmg80ave mediaave mena migrationave 			///
		 mortality5ave muslimave oecd peacekeepersflave peacekeeperslave 	///
		 polity2ave popave preventave prostlawave protectave 				///
		 pveave refugeesave religionave rleave sasia 						///
		 ssa tourismave tradeave unemploymentave urbanave 					///
		 vaeave visaave weconave wosocave english 							///
		 french german spanish portuguese landlocked 						///	
				, max(3) min(3)  kronecker
		
		forvalues i = 1/`ntuples'   {
		 oprobit dest_UNODC /**/ agrave /**/ `tuple`i'' gdpave 
		regsave using /**/ eba_unodc_1 /**/, tstat pval ci autoid append detail(all) 	
						}	
	
 **********************
 ** 2. america_l **
 **********************
		
		oprobit dest_UNODC  /**/ america_l /**/
		regsave using /**/ eba_unodc_2 /**/, replace
		
		tuples 																///
		 agrave /**/ america_n conflict_extave conflict_intave 				///
		 cpiave easia_pacific energyuseave ethnic_tensionave ethnicave 		///
		 europe execleftave execrightave fdiave foodave 					///
		 homicidesave infantave KOFSoGIave languageave legal_britishave 	///
		 legal_frenchave legal_germanave legal_scanave literacyave 			///
		 lp_catho80ave lp_protmg80ave mediaave mena migrationave 			///
		 mortality5ave muslimave oecd peacekeepersflave peacekeeperslave 	///
		 polity2ave popave preventave prostlawave protectave 				///
		 pveave refugeesave religionave rleave sasia 						///
		 ssa tourismave tradeave unemploymentave urbanave 					///
		 vaeave visaave weconave wosocave english 							///
		 french german spanish portuguese landlocked 						///	
				, max(3) min(3)  kronecker
		
				forvalues i = 1/`ntuples'   {
				   oprobit dest_UNODC /**/ america_l /**/ `tuple`i'' gdpave 
				regsave using /**/ eba_unodc_2 /**/, tstat pval ci autoid append detail(all) 	
						}
	
 **********************
 ** 3. america_n **
 **********************
		
		oprobit dest_UNODC  /**/ america_n /**/
		regsave using /**/ eba_unodc_3 /**/, replace
		
		tuples 																///
		 agrave america_l /**/ conflict_extave conflict_intave					///
		 cpiave easia_pacific energyuseave ethnic_tensionave ethnicave 		///
		 europe execleftave execrightave fdiave foodave 					///
		 homicidesave infantave KOFSoGIave languageave legal_britishave 	///
		 legal_frenchave legal_germanave legal_scanave literacyave 			///
		 lp_catho80ave lp_protmg80ave mediaave mena migrationave			///
		 mortality5ave muslimave oecd peacekeepersflave peacekeeperslave 	///
		 polity2ave popave preventave prostlawave protectave 				///
		 pveave refugeesave religionave rleave sasia 						///
		 ssa tourismave tradeave unemploymentave urbanave 					///
		 vaeave visaave weconave wosocave english 							///
		 french german spanish portuguese landlocked 						///	
				, max(3) min(3)  kronecker
		
				forvalues i = 1/`ntuples'   {
				   oprobit dest_UNODC /**/ america_n /**/`tuple`i'' gdpave
				regsave using /**/ eba_unodc_3 /**/, tstat pval ci autoid append detail(all) 	
						}
						
 **********************
 ** 4. conflict_extave **
 **********************
		
		oprobit dest_UNODC  /**/ conflict_extave /**/
		regsave using /**/ eba_unodc_4 /**/, replace
		
		tuples 																///
		 agrave america_l america_n /**/  conflict_intave					///
		 cpiave easia_pacific energyuseave ethnic_tensionave ethnicave 		///
		 europe execleftave execrightave fdiave foodave 					///
		 homicidesave infantave KOFSoGIave languageave legal_britishave 	///
		 legal_frenchave legal_germanave legal_scanave literacyave 			///
		 lp_catho80ave lp_protmg80ave mediaave mena migrationave			///
		 mortality5ave muslimave oecd peacekeepersflave peacekeeperslave 	///
		 polity2ave popave preventave prostlawave protectave 				///
		 pveave refugeesave religionave rleave sasia 						///
		 ssa tourismave tradeave unemploymentave urbanave 					///
		 vaeave visaave weconave wosocave english 							///
		 french german spanish portuguese landlocked 						///	
				, max(3) min(3)  kronecker
		
				forvalues i = 1/`ntuples'   {
				   oprobit dest_UNODC /**/ conflict_extave /**/`tuple`i'' gdpave
				regsave using /**/ eba_unodc_4 /**/, tstat pval ci autoid append detail(all) 	
						}

 **********************
 ** 5. conflict_intave **
 **********************
		
		oprobit dest_UNODC  /**/ conflict_intave /**/
		regsave using /**/ eba_unodc_5 /**/, replace
		
		tuples 																///
		 agrave america_l america_n  conflict_extave /**/  					///
		 cpiave easia_pacific energyuseave ethnic_tensionave ethnicave 		///
		 europe execleftave execrightave fdiave foodave 					///
		 homicidesave infantave KOFSoGIave languageave legal_britishave 	///
		 legal_frenchave legal_germanave legal_scanave literacyave 			///
		 lp_catho80ave lp_protmg80ave mediaave mena migrationave			///
		 mortality5ave muslimave oecd peacekeepersflave peacekeeperslave 	///
		 polity2ave popave preventave prostlawave protectave 				///
		 pveave refugeesave religionave rleave sasia 						///
		 ssa tourismave tradeave unemploymentave urbanave 					///
		 vaeave visaave weconave wosocave english 							///
		 french german spanish portuguese landlocked 						///	
				, max(3) min(3)  kronecker
		
			forvalues i = 1/`ntuples'   {
		    oprobit dest_UNODC /**/ conflict_intave /**/`tuple`i'' gdpave
			regsave using /**/ eba_unodc_5 /**/, tstat pval ci autoid append detail(all) 	
						}

  		
  		
		 		
						
			
			
			
			
			
			
			
			
			
			
			
			
			
